home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / HyperCard / Games / CirclusMaximus™ / card_9362.txt < prev    next >
Text File  |  1991-03-02  |  3KB  |  126 lines
  1. -- card: 9362 from stack: in
  2. -- bmap block id: 11008
  3. -- flags: 4000
  4. -- background id: 7338
  5. -- name: Segment w/ Two Bases
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   set numberFormat to <0.000000>
  9.  
  10.   --Calculate Segment Area
  11.   get 2*pi*card field "Radius"*card field "Height"
  12.   put it into card field "Segment Area"
  13.  
  14.   --Calculate Segment Volume
  15.   get (pi*(card field "Height"^3/6))+((pi*(card field "Radius r1"^2+ card field "Radius r2"^2)*card field "Height")/2)
  16.   put it into card field "Segment Volume"
  17. end mouseUp
  18.  
  19.  
  20. -- part 1 (field)
  21. -- low flags: 00
  22. -- high flags: 0002
  23. -- rect: left=312 top=96 right=114 bottom=459
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 1
  27. -- font id: 3
  28. -- text size: 12
  29. -- style flags: 0
  30. -- line height: 16
  31. -- part name: Radius
  32.  
  33.  
  34. -- part 2 (field)
  35. -- low flags: 00
  36. -- high flags: 0002
  37. -- rect: left=312 top=119 right=137 bottom=459
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 3
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Height
  46.  
  47.  
  48. -- part 3 (field)
  49. -- low flags: 00
  50. -- high flags: 0002
  51. -- rect: left=312 top=143 right=161 bottom=459
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 3
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Radius r1
  60.  
  61.  
  62. -- part 4 (field)
  63. -- low flags: 00
  64. -- high flags: 0002
  65. -- rect: left=312 top=167 right=185 bottom=459
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 3
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Radius r2
  74.  
  75.  
  76. -- part 5 (field)
  77. -- low flags: 01
  78. -- high flags: 0004
  79. -- rect: left=319 top=226 right=245 bottom=448
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: Segment Area
  88.  
  89.  
  90. -- part 6 (field)
  91. -- low flags: 01
  92. -- high flags: 0004
  93. -- rect: left=319 top=265 right=284 bottom=448
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 1
  97. -- font id: 0
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: Segment Volume
  102.  
  103.  
  104. -- part contents for card part 1
  105. ----- text -----
  106. .500000
  107.  
  108. -- part contents for card part 2
  109. ----- text -----
  110. .250000
  111.  
  112. -- part contents for card part 3
  113. ----- text -----
  114. .125000
  115.  
  116. -- part contents for card part 4
  117. ----- text -----
  118. .0625
  119.  
  120. -- part contents for card part 5
  121. ----- text -----
  122. 0.785398
  123.  
  124. -- part contents for card part 6
  125. ----- text -----
  126. 0.015851